The Trig Explorer/The Trig Explorer.iso/pc/explorer/ex_funct.dxr/00001.ls

Text File | 1997-07-22 | 1.7 KB | 60 lines

on startMovie
  global a, b, c
  set the cursor of sprite 20 to [319, 320]
  set the cursor of sprite 21 to [319, 320]
  set the cursor of sprite 22 to [319, 320]
  set the randomSeed to the ticks
  cursor(-1)
  set the keyDownScript to "printPass"
  set the keyUpScript to "numsOnly"
  set the hilite of cast "Degrees" to 1
  put "0" into field "X"
  put "0" into field "Y"
  put "0" into field "R"
  put "0" into field "Theta"
  put "0" into field "Answer1"
  put "0" into field "Answer2"
  put "0" into field "Cos"
  put "0" into field "Sin"
  set the textSize of field "X" to 32
  set the textSize of field "Y" to 32
  set the textSize of field "R" to 32
  set the textSize of field "Theta" to 32
  set the textSize of field "Answer1" to 32
  set the textSize of field "Answer2" to 32
  set the textSize of field "Cos" to 32
  set the textSize of field "Sin" to 32
  set the textStyle of field "X" to "bold"
  set the textStyle of field "Y" to "bold"
  set the textStyle of field "R" to "bold"
  set the textStyle of field "Theta" to "bold"
  set the textStyle of field "Answer1" to "bold"
  set the textStyle of field "Answer2" to "bold"
  set the textStyle of field "Cos" to "bold"
  set the textStyle of field "Sin" to "bold"
end

on stopMovie
  cursor(-1)
  set the cursor of sprite 20 to 0
  set the cursor of sprite 21 to 0
  put 45 into field "Answer1"
  put 45 into field "Answer2"
end

on numsOnly
  if (the key = RETURN) or (the key = ENTER) or (the key = TAB) or (the key = "-") or (the keyCode = 76) then
    exit
  end if
  if (the key >= "0") and (the key <= "9") then
    exit
  end if
  if the key = "." then
    exit
  end if
  if the key = BACKSPACE then
    exit
  end if
  dontPassEvent()
end